home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor2 / textengn.lha / Textengine / TEM / pgs3.tet < prev   
Text File  |  1996-12-23  |  13KB  |  553 lines
  1. /* $VER: pgs.tet 1.0 (6.10.96) */
  2.  
  3. /* start */
  4.  
  5. options results
  6. parse arg n x y
  7. signal on syntax
  8. myhost=n||" '"||x||"'"
  9. interpret myhost
  10.  
  11. n=open(script,"T:typeset.script","W")
  12. n=writeln(script,"/* automatic script */")
  13. n=writeln(script,"address 'PAGESTREAM'")
  14. n=writeln(script,"'GETOBJECT BOUNDINGBOX BBOX'")
  15.  
  16. /* main */
  17.  
  18. 'GOTO BYTE=2'
  19. 'EXTRACT LEFT="<" RIGHT=">" VAR STYLE'
  20. stylepre=right(STYLE,3)
  21. style='@P'||stylepre||':'
  22. stylepre='@P'||stylepre||'_'
  23. 'DELETE LINE'
  24. 'REPLACE STRING="*"`" BY="<\#8222>" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  25. 'REPLACE STRING="*"''" BY="<\#8220>" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  26. 'REPLACE STRING="---" BY="<\#8212>" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  27. 'REPLACE STRING="--" BY="<\#8211>" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  28. 'REPLACE STRING="<%>" BY="" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  29. 'REPLACE STRING="@" BY="<\@>" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  30. 'REPLACE STRING="<I>" BY="!!!xxxDangerI!!!" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  31. 'REPLACE STRING="<B>" BY="!!!xxxDangerB!!!" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  32. 'REPLACE STRING="<%START>" BY="" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  33. 'REPLACE STRING="<%END>" BY="" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  34. 'REPLACE STRING="<BREAK>" BY="<\c>" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  35. 'REPLACE STRING="<HEAD2>" BY="@Phead2:" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  36. huch=RANDOM(0,5)
  37. 'GOTO BYTE=1'
  38. 'TEXT T="<PageStream3.0>" CR'
  39. 'CR'
  40. found=0
  41. do while found=0
  42.  'REPLACE STRING="<LIST" BY="'stylepre'list:" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  43.  if RC=0 then do
  44.   'QUERY CODE'
  45.   if RESULT=32 then do
  46.    'DEL'
  47.    'GOTO EOL'
  48.    'BACK'
  49.   end
  50.   else 'DELETE EOL'
  51.   'MARK HIDE'
  52.   'MARK SET LINE'
  53.   'CLIP COPY UNIT 112'
  54.   'PING SLOT 0'
  55.   'REPLACE STRING="</LIST>" BY="'stylepre'noindent:" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  56.   'CLIP PASTE UNIT 112'
  57.   'GOTO COLUMN 12'
  58.   'DELETE LEFT'
  59.   'TEXT T="<LISTEND>"'
  60.   'MARK HIDE'
  61.   'MARK SET LINE'
  62.   'REPLACE STRING="<" BY="</" WILD=FALSE BLOCK QUIET CONFIRM=FALSE'
  63.   'UP'
  64.   'PING SLOT 9'
  65.   'PONG SLOT 0'
  66.   'MARK SET LINE'
  67.   'PONG SLOT 9'
  68.   'MARK SET LINE'
  69.   'REPLACE STRING="'stylepre'list:<FIX>" BY="'stylepre'list_fix:" WILD=FALSE BLOCK QUIET CONFIRM=FALSE'
  70.   'REPLACE STRING="<FIX>" BY="'stylepre'list_fix:" WILD=FALSE BLOCK QUIET CONFIRM=FALSE'
  71.   'REPLACE STRING="'stylepre'list:<G>" BY="'stylepre'list_big:" WILD=FALSE BLOCK QUIET CONFIRM=FALSE'
  72.   'REPLACE STRING="<G>" BY="'stylepre'list_big:" WILD=FALSE BLOCK QUIET CONFIRM=FALSE'
  73.   'REPLACE STRING="</G>" BY="'stylepre'list:" WILD=FALSE BLOCK QUIET CONFIRM=FALSE'
  74.   'REPLACE STRING="</FIX>" BY="'stylepre'list:" WILD=FALSE BLOCK QUIET CONFIRM=FALSE'
  75.   'DOWN'
  76.   'DOWN'
  77.   'FIRST'
  78.   'QUERY LINE VAR BISWO'
  79.   'CR'
  80.   'GOTO EOL'
  81.   'DEL'
  82.   'DEL'
  83.   'QUERY CODE'
  84.   if ~(RESULT=60 | RESULT=64) then do
  85.    'RIGHT'
  86.    'TEXT T="'style'"'
  87.   end
  88.   else 'DELETE LEFT'
  89.   'PONG SLOT 0'
  90.   'FIRST'
  91.   'MARK HIDE'
  92.   'MARK SET COLUMN'
  93.   'GOTO EOL'
  94.   'MARK SET COLUMN'
  95.   'CLIP COPY UNIT 112'
  96.   leer=1
  97.   leer2=0
  98.   'QUERY TAB VAR TABULATOR'
  99.   'QUERY LINE'
  100.   do while RESULT<BISWO
  101.    'DOWN'
  102.    'GOTO INDENT'
  103.    'QUERY ANYCHAR VAR VARX'
  104.    if ((VARX="TRUE") & (leer=1)) then do
  105.     'QUERY COLUMN'
  106.     if RESULT<=TABULATOR then do
  107.      'DELETE LEFT'
  108.      'TAB SOLID=TRUE REGULAR'
  109.      'FIND STRING="  " NEXT WILD=FALSE QUIET'
  110.      'CR'
  111.      huch=huch+RANDOM(0,5)
  112.      if huch>5 then huch=0
  113.      BISWO=BISWO+1
  114.      'GOTO INDENT'
  115.      'DELETE LEFT'
  116.      'TAB SOLID=TRUE REGULAR'
  117.      leer=0
  118.     end
  119.     else do
  120.      'DELETE LEFT'
  121.      'TAB SOLID=TRUE REGULAR'
  122.      'TEXT T="<\#8226>"'
  123.      'CR'
  124.      BISWO=BISWO+1
  125.      leer=0
  126.     end
  127.    end
  128.    else if VARX="FALSE" then do
  129.     if leer2=0 then leer=1
  130.    end
  131.    else if leer2=0 then 'DELETE LEFT'
  132.    if VARX="TRUE" then do
  133.     'GOTO EOL'
  134.     'GOTO STEP -3'
  135.     'EXTRACT LEFT="<" RIGHT=">"'
  136.     if RESULT="LB" then do
  137.      'GOTO INDENT'
  138.      if leer2=0 then do
  139.       'REPLACE STRING="<LB>" BY="'stylepre'list_par:" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  140.      end
  141.      else do
  142.       'REPLACE STRING="<LB>" BY="" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  143.      end
  144.      huch=huch+RANDOM(0,5)
  145.      if huch>5 then huch=0
  146.      'CR'
  147.      'DOWN'
  148.      'GOTO INDENT'
  149.      'DELETE LEFT'
  150.      'TAB SOLID=TRUE REGULAR'
  151.      'TAB SOLID=TRUE REGULAR'
  152.      'GOTO EOL'
  153.      'GOTO STEP -3'
  154.      'EXTRACT LEFT="<" RIGHT=">"'
  155.      if RESULT="LB" then do
  156.       leer2=1
  157.       'UP'
  158.      end
  159.      else do
  160.       leer2=0
  161.       'GOTO EOL'
  162.       'CLIP PASTE UNIT 112'
  163.       huch=huch+RANDOM(0,5)
  164.       if huch>5 then huch=0
  165.      end
  166.     end
  167.    end
  168.    'QUERY LINE'
  169.   end
  170.  end
  171.  else found=1
  172. end
  173. 'GOTO BYTE=1'
  174. 'REPLACE STRING="<HEAD>" BY="@Phead:" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  175. if RC=0 then do
  176.  'FIRST'
  177.  'DOWN'
  178.  'QUERY CODE VAR VARX'
  179.  'QUERY LINE VAR VARY'
  180.  'QUERY ANYCHAR'
  181.  do while (((VARX=64)|(RESULT="FALSE"))&(VARY<7))
  182.   'DOWN'
  183.   'QUERY CODE VAR VARX'
  184.   'QUERY LINE VAR VARY'
  185.   'QUERY ANYCHAR'
  186.  end
  187.  'QUERY CODE'
  188.  do while RESULT=33
  189.   'GOTO STEP=16'
  190.   'QUERY CODE'
  191.   do while RESULT=60
  192.    'FIND STRING=">" NEXT WILD=FALSE QUIET'
  193.    'RIGHT'
  194.    'QUERY CODE'
  195.   end
  196.   'QUERY CODE'
  197.  end
  198.  huch=huch+RANDOM(0,5)
  199.  if huch>5 then huch=0
  200.  'MARK HIDE'
  201.  'MARK SET COLUMN'
  202.  'CLIP CUT UNIT 113'
  203.  n=writeln(script,"'DRAWTEXTOBJ 'BBOX.left' 'BBOX.top")
  204.  n=writeln(script,"'SELECTTEXT AT 'BBOX.left' 'BBOX.top")
  205.  n=writeln(script,"'SETPARAGRAPHSTYLE first'")
  206.  n=writeln(script,"'INSERTTEXT FILE CLIPS:113 FILTER IFFFTXT'")
  207.  n=writeln(script,"'SETTEXTWRAP SHAPE WRAPAROUND'")
  208.  'FIRST'
  209.  'TEXT T="'stylepre'noindent:"'
  210.  'QUERY CODE'
  211.  do while RESULT=33
  212.   'GOTO STEP=16'
  213.   'QUERY CODE'
  214.   do while RESULT=60
  215.    'FIND STRING=">" NEXT WILD=FALSE QUIET'
  216.    'RIGHT'
  217.    'QUERY CODE'
  218.   end
  219.   'QUERY CODE'
  220.  end
  221.  'TEXT T="'style'"'
  222. end
  223. 'GOTO BYTE=1'
  224. found=0
  225. do while found=0
  226.  'REPLACE STRING="<T>" BY="'stylepre'top:" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  227.  if RC=0 then do
  228.   'SMARTCR'
  229.   'SMARTCR'
  230.   'GOTO INDENT'
  231.   'TEXT T="'stylepre'noindent:"'
  232.   huch=huch+RANDOM(0,5)
  233.   if huch>5 then huch=0
  234.   'QUERY CODE'
  235.   if ~(RESULT=60 | RESULT=64) then do
  236.    'RIGHT'
  237.    'TEXT T="'style'"'
  238.   end
  239.   else 'DELETE LEFT'
  240.  end
  241.  else found=1
  242. end
  243. 'GOTO BYTE=1'
  244. found=0
  245. do while found=0
  246.  'REPLACE STRING="<ST>" BY="'stylepre'subtop:" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  247.  if RC=0 then do
  248.   'SMARTCR'
  249.   'SMARTCR'
  250.   'GOTO INDENT'
  251.   'TEXT T="'stylepre'noindent:"'
  252.   huch=huch+RANDOM(0,5)
  253.   if huch>5 then huch=0
  254.   'QUERY CODE'
  255.   if ~(RESULT=60 | RESULT=64) then do
  256.    'RIGHT'
  257.    'TEXT T="'style'"'
  258.   end
  259.   else 'DELETE LEFT'
  260.  end
  261.  else found=1
  262. end
  263. 'GOTO BYTE=1'
  264. found=0
  265. do while found=0
  266.  'REPLACE STRING="<M>" BY="'stylepre'mark:" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  267.  if RC=0 then do
  268.   'SMARTCR'
  269.   'SMARTCR'
  270.   huch=huch+RANDOM(0,5)
  271.   if huch>5 then huch=0
  272.   'GOTO INDENT'
  273.   'TEXT T="'stylepre'noindent:"'
  274.   'QUERY CODE'
  275.   if ~(RESULT=60 | RESULT=64) then do
  276.    'RIGHT'
  277.    'TEXT T="'style'"'
  278.   end
  279.   else 'DELETE LEFT'
  280.  end
  281.  else found=1
  282. end
  283. 'GOTO BYTE=1'
  284. found=0
  285. do while found=0
  286.  'FIND STRING="<E>" WILD=FALSE NEXT QUIET'
  287.  if RC=0 then do
  288.   huch=huch+RANDOM(0,5)
  289.   if huch>5 then huch=0
  290.   'DEL'
  291.   'DEL'
  292.   'DEL'
  293.   ostr=""
  294.   select
  295.    when huch=0 then estr="<B>"
  296.    when huch=1 then estr="<I>"
  297.    when huch=2 then estr="<S>"
  298.    when huch=3 then do
  299.     estr="@Csuper:"
  300.     ostr="@Cplain:"
  301.    end
  302.    when huch=4 then do
  303.     estr="@Csub:"
  304.     ostr="@Cplain:"
  305.    end
  306.    when huch=5 then do
  307.     estr="<G>"
  308.     ostr="</G>"
  309.    end
  310.   end
  311.   if ostr="" then ostr=estr
  312.   'TEXT T="'estr'"'
  313.   'FIND STRING="</E>" WILD=FALSE NEXT QUIET'
  314.   if RC=0 then do
  315.    'DEL'
  316.    'DEL'
  317.    'DEL'
  318.    'DEL'
  319.    'TEXT T="'ostr'"'
  320.   end
  321.  end
  322.  else found=1
  323. end
  324. 'GOTO BYTE=1'
  325. found=0
  326. do while found=0
  327.  'REPLACE STRING="<TAB>" BY="" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  328.  if RC=0 then do
  329.   'CR'
  330.   'DELETE LEFT'
  331.   'TAB SOLID=TRUE REGULAR'
  332.  end
  333.  else found=1
  334. end
  335. 'GOTO BYTE=1'
  336. found=0
  337. do while found=0
  338.  'REPLACE STRING="</LISTEND></FIX>" BY="" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  339.  if RC=0 then do
  340.   'QUERY ANYCHAR'
  341.   if RESULT="FALSE" then 'DELETE LINE'
  342.  end
  343.  else found=1
  344. end
  345. 'GOTO BYTE=1'
  346. found=0
  347. do while found=0
  348.  'REPLACE STRING="</LISTEND></G>" BY="" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  349.  if RC=0 then do
  350.   'QUERY ANYCHAR'
  351.   if RESULT="FALSE" then 'DELETE LINE'
  352.  end
  353.  else found=1
  354. end
  355. 'GOTO BYTE=1'
  356. found=0
  357. do while found=0
  358.  'REPLACE STRING="</LISTEND>" BY="" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  359.  if RC=0 then do
  360.   'QUERY ANYCHAR'
  361.   if RESULT="FALSE" then 'DELETE LINE'
  362.  end
  363.  else found=1
  364. end
  365. 'GOTO BYTE=1'
  366. found=0
  367. do while found=0
  368.  'REPLACE BY="'stylepre'noindent:" STRING="<NOI>" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  369.  if RC=0 then do
  370.   'QUERY CODE VAR VARX'
  371.   if VARX=60 then do
  372.    do while VARX=60
  373.     'FIND STRING=">" NEXT WILD=FALSE QUIET'
  374.     'RIGHT'
  375.     'QUERY CODE VAR VARX'
  376.    end
  377.   end
  378.   else 'RIGHT'
  379.   'TEXT T="'style'"'
  380.  end
  381.  else found=1
  382. end
  383. 'GOTO BYTE=1'
  384. found=0
  385. do while found=0
  386.  'REPLACE BY="'stylepre'noindent:<I>" STRING="'stylepre'noindent:!'style'!!xxxDangerI!!!" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  387.  if RC=0 then do
  388.   'RIGHT'
  389.   'TEXT T="'style'"'
  390.  end
  391.  else found=1
  392. end
  393. 'GOTO BYTE=1'
  394. found=0
  395. do while found=0
  396.  'REPLACE BY="'stylepre'noindent:<B>" STRING="'stylepre'noindent:!'style'!!xxxDangerB!!!" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  397.  if RC=0 then do
  398.   'RIGHT'
  399.   'TEXT T="'style'"'
  400.  end
  401.  else found=1
  402. end
  403. 'GOTO BYTE=1'
  404. found=0
  405. do while found=0
  406.  'REPLACE STRING="<PIC " BY="" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  407.  if RC=0 then do
  408.   'MARK HIDE'
  409.   'MARK SET COLUMN'
  410.   'FIND STRING=">" NEXT WILD=FALSE QUIET'
  411.   'DEL'
  412.   'MARK SET COLUMN'
  413.   'SAVE BLOCK NAME="t:te_temp"'
  414.   'DELETE BLOCK'
  415.   'QUERY ANYCHAR'
  416.   if RESULT="FALSE" then 'DELETE LINE'
  417.   'UP'
  418.   call open(file,"t:te_temp","R")
  419.   picname=readln(file)
  420.   call close(file)
  421.   picname="'PLACEGRAPHIC FILE "||picname||" FILTER GIF STATUS'"
  422.   n=writeln(script,picname)
  423.   n=writeln(script,"'SETTEXTWRAP SHAPE STANDOFF 0.2cm 0.2cm WRAPAROUND'")
  424.   n=writeln(script,"'EDITPICTURE EXTERNAL'")
  425.  end
  426.  else found=1
  427. end
  428. found=0
  429. 'GOTO BYTE=1'
  430. do while found=0
  431.  'REPLACE STRING="<NAME " BY="'stylepre'name:" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  432.  if RC=0 then do
  433.   'GOTO EOL'
  434.   'FIND STRING=">" PREV WILD=FALSE QUIET'
  435.   'DEL'
  436.  end
  437.  else found=1
  438. end
  439. found=0
  440. 'GOTO BYTE=1'
  441. do while found=0
  442.  'REPLACE STRING="<G>" BY="'stylepre'big:" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  443.  if RC=0 then do
  444.   'QUERY CODE'
  445.   do while RESULT=64
  446.    counter=1
  447.    'MARK HIDE'
  448.    'MARK SET COLUMN'
  449.    'RIGHT'
  450.    'QUERY CODE'
  451.    if RESULT=80 then do
  452.     'FIND STRING=":" NEXT WILD=FALSE QUIET'
  453.     'RIGHT'
  454.     'QUERY CODE'
  455.    end
  456.   end
  457.   if counter=1 then do
  458.    'MARK SET COLUMN'
  459.    'DELETE BLOCK'
  460.   end
  461.  end
  462.  else found=1
  463. end
  464. 'REPLACE STRING="·" BY="<\#8226>" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  465. 'REPLACE BY="<I>" STRING="!!!xxxDangerI!!!" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  466. 'REPLACE BY="<B>" STRING="!!!xxxDangerB!!!" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  467. 'REPLACE STRING="</B>" BY="<B>" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  468. 'REPLACE STRING="</I>" BY="<I>" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  469. 'REPLACE STRING="<G>" BY="'stylepre'big:" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  470. 'REPLACE STRING="</G>" BY="'style'" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  471. 'REPLACE STRING="<FIX>" BY="'stylepre'fix:" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  472. 'REPLACE STRING="</FIX>" BY="'style'" WILD=FALSE ALL QUIET CONFIRM=FALSE'
  473. 'GOTO BYTE=1'
  474. 'REPLACE STRING="<XTRA " BY="" WILD=FALSE NEXT QUIET CONFIRM=FALSE'
  475. if RC=0 then do
  476.  'MARK HIDE'
  477.  'MARK SET COLUMN'
  478.  'FIND STRING=">" NEXT WILD=FALSE QUIET'
  479.  'DEL'
  480.  'MARK SET COLUMN'
  481.  'CLIP CUT UNIT 114'
  482.  n=writeln(script,"'GETDIMENSIONS VARX'")
  483.  n=writeln(script,"VARX=VARX.height-0.677")
  484.  n=writeln(script,"'DRAWTEXTOBJ 'BBOX.left' 'VARX")
  485.  n=writeln(script,"'SELECTTEXT AT 'BBOX.left' 'VARX")
  486.  n=writeln(script,"'SETPARAGRAPHSTYLE xtra'")
  487.  n=writeln(script,"'INSERTTEXT FILE CLIPS:114 FILTER IFFFTXT'")
  488.  'UP'
  489.  'QUERY ANYCHAR'
  490.  if RESULT="TRUE" then 'DOWN'
  491.  'DOWN'
  492.  'QUERY ANYCHAR'
  493.  do while RESULT="FALSE"
  494.   'DELETE LINE'
  495.   'QUERY ANYCHAR'
  496.  end
  497. end
  498. X=0
  499. N="FALSE"
  500. 'GOTO LINE=2 COLUMN=1'
  501. 'QUERY CODE VAR VARX'
  502. 'QUERY ANYCHAR VAR N'
  503. do while (((VARX=64)|(N="FALSE"))&(X<7))
  504.  'DOWN'
  505.  'QUERY LINE VAR X'
  506.  'QUERY CODE VAR VARX'
  507.  y=N
  508.  'QUERY ANYCHAR VAR N'
  509.  if y=N then X=7
  510. end
  511. 'QUERY CODE'
  512. if ((X<7)&(~(RESULT=64))) then do
  513.  'TEXT T="'stylepre'noindent:"'
  514.  'QUERY CODE'
  515.  if RESULT=60 then do
  516.   'FIND STRING=">" NEXT WILD=FALSE QUIET'
  517.   'RIGHT'
  518.  end
  519.  'QUERY CODE'
  520.  if ~(RESULT=64) then 'TEXT T="'style'"'
  521. end
  522. 'GOTO BYTE=1'
  523. found=0
  524. do while found=0
  525.  'FIND STRING="<\c>" WILD=FALSE NEXT QUIET'
  526.  if RC=0 then do
  527.   'GOTO STEP 4'
  528.   'QUERY COLUMN VAR VARX'
  529.   'GOTO EOL'
  530.   'QUERY COLUMN'
  531.   do while RESULT=VARX
  532.    'DEL'
  533.    'GOTO EOL'
  534.    'QUERY COLUMN'
  535.   end
  536.  end
  537.  else found=1
  538. end
  539.  
  540. /* end */
  541.  
  542. n=writeln(script,"'SELECTTEXT BACKMOST AT 'BBOX.left' 'BBOX.top")
  543. n=writeln(script,"'TEXTCURSOR BOA'")
  544. n=writeln(script,"'INSERTTEXT CONVERTQUOTE FALSE CONVERTDASH FALSE LINEHASLF TRUE AMIGA TEXTCODE PageStream FILE T:te.out FILTER Ascii STATUS'")
  545. n=close(script)
  546. address command 'run >nil: rx t:typeset.script'
  547.  
  548. exit 0
  549.  
  550. syntax:
  551. say "Sorry, error line" SIGL ":" errortext(RC) ":-("
  552. exit 20
  553.